Software of the Month Club 1999 February/Software of the Month - Ultimate Collection Shareware 258.iso/pc/Business.dir/00001_Script_1

Text File | 1998-12-07 | 4KB | 188 lines

on startMovie

  global  LINECLICK
  set LINECLICK to 1
  set the forecolor of member "progDisplay" to 255 -- set text to black
  set the forecolor of line LINECLICK of member "progDisplay" to 0

  --* This declares the variables for the finger cursor. *

  global FINGER, FINGERMASK,MAGNIFY, MAGNIFY2, MAGNIFYMASK
  set FINGER to the memberNum of member "Finger1"
  set FINGERMASK to the memberNum of member "Finger2"
  set MAGNIFY to the memberNum of member "MAGGLASS"
  set MAGNIFY2 to the memberNum of member "MAGGLASS2"
  set MAGNIFYMASK to the memberNum of member "MAGGLASS1"
  glowClear()

end


--* This handler hides/shows the glow images. eg: glow(5,TRUE) *

on glow WHICHSPRITE, TRUEORFALSE
  set the visible of sprite WHICHSPRITE to TRUEORFALSE
end glow

--* TURN OF ALL GLOWS ON START
on glowClear
  repeat with i = 20 to 36
    glow(i)
  end repeat
end

--* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*

on textglow WHICHMEMBER, COLORNUMBER
  set the foreColor of member WHICHMEMBER to COLORNUMBER
end textglow


--* THIS HANDLER EXAMPLE OF DISABLEING HOTSPOTS WHEN RUNNING MIAW*
--on mouseEnter
--  if not count(the windowList) then
--    doRollover(52)
--  end if
--end
--
--
--on mouseLeave
--  if not count(the windowList) then
--    doRollout(52)
--  end if
--end



--* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *

on openMIAW MYWINDOW
  set myRect=the rect of window MYWINDOW
  set myStage=the rect of the Stage
  set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  set the rect of window MYWINDOW=myNewRect
  set the windowType of window MYWINDOW to 2
  open window MYWINDOW
end openMIAW


--* THESE HANDLERS TURN ON A GLOW, TURN POINTER A HAND AND PLAYS A SOUND *

on doRollover NUMSPRITE,NUMSOUND
  glow(numsprite,TRUE)
  global finger,fingermask
  cursor[finger,fingermask]
  case  NUMSOUND of
    1: puppetsound 1, "Scissors"
    2: puppetsound 1, "Butane"
    3: puppetsound 1, "Scissors"
    4: puppetsound 1, "Scissors"
  end case
  updatestage
end

on doRollover3 NUMSPRITE,NUMSOUND
  glow(numsprite,TRUE)
  global MAGNIFY, MAGNIFYMASK
  cursor [MAGNIFY,MAGNIFYMASK]
  updatestage
  case  NUMSOUND of

    1: puppetsound 1, "Scissors"
    2: puppetsound 1, "Butane"
    3: puppetsound 1, "Scissors"
    4: puppetsound 1, "Scissors"
  end case
end



on doRollover4 NUMSPRITE,NUMSOUND
  glow(numsprite,TRUE)
  global MAGNIFY2, MAGNIFYMASK
  cursor [MAGNIFY2,MAGNIFYMASK]
  updatestage
  case  NUMSOUND of

    1: puppetsound 1, "Scissors"
    2: puppetsound 1, "Butane"
    3: puppetsound 1, "Scissors"
    4: puppetsound 1, "Scissors"
  end case
end




--* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
on doRollout numsprite
  glow(numsprite,FALSE)
  cursor 0
end

--* PLAYS A CLICK SOUND

on doClick
  puppetsound 1,"close"
  updateStage
end


on doZoomout numsprite,soundwait
  puppetsound 1, "close"
  if soundwait then
    repeat while soundbusy (1)
    end repeat
    set soundwait to FALSE
  end if
  glow(numsprite, TRUE)
  global MAGNIFY2, MAGNIFYMASK
  cursor [MAGNIFY2,MAGNIFYMASK]
  updatestage
end

on doZoomin numsprite,soundwait
  puppetsound 1, "close"
  if soundwait then
    repeat while soundbusy (1)
    end repeat
    set soundwait to FALSE
  end if
  glow(numsprite, TRUE)
  global MAGNIFY, MAGNIFYMASK
  cursor [MAGNIFY,MAGNIFYMASK]
  updatestage
end


on setpath
  Global SETUPPATH95,LINECLICK

  case LINECLICK of

    1:set SETUPPATH95 to "@\business\AMFPIM\Setup.exe"

    2:set SETUPPATH95 to "@\business\ibase\ib20eng.exe"

    3:set SETUPPATH95 to "@\business\Presentation\pg_share.exe"

    4:set SETUPPATH95 to "@\business\SOS\sohinstall.exe"

    5:set SETUPPATH95 to "@\business\Virtual\virtualproposaldemo.exe"

      --
      --    6:set SETUPPATH95 to"@\business\Trial\tcdia32_25.exe"



  end case
end